home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / text / edit / gad4ged4.lha / gad4ged4 / arexx / tex / texi2dvi.ged
Text File  |  1996-10-03  |  2KB  |  73 lines
  1. /* $VER: 0.9, ©1996 Koessi GoldED macro */
  2.  
  3. OPTIONS RESULTS                             /* enable RETURN codes     */
  4.  
  5. IF (LEFT(ADDRESS(), 6) ~= "GOLDED") THEN    /* not started by GoldEd ? */
  6.     ADDRESS 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean EXIT       */
  11.  
  12.  
  13. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  14.  
  15. VIRTEX='tex:bin/virtex-big-20'
  16. TEXOPT=' -l1 -cram: &ram:plain '
  17. TEXIND='tex:bin/texindex'
  18. TEXFOR='tex:formats.big/'
  19. TEXCFG='tex:config/bigtex.cnf'
  20.  
  21.  
  22. SAY '*** ›1mThis is the AREXX-script golded:arexx/tex/texi2dvi.ged›0m ***'
  23.  
  24. 'QUERY PATH VAR=PFAD'
  25. CALL PRAGMA('D', PFAD)
  26.  
  27. 'QUERY FILE VAR=DATEI'
  28.  
  29. ADDRESS command
  30.  
  31. IF ~EXISTS('ram:plain.fmt') THEN DO
  32.   SAY '›32mStarting PlainTex›0m'
  33.   'copy '||TEXFOR||'gplain.fmt ram:plain.fmt'
  34.   'copy '||TEXCFG||' ram:'
  35. END
  36.  
  37. PARSE VAR DATEI basename '.' indx
  38.  
  39. dvifile = basename||'.dvi'
  40.  
  41. SAY '›32mConverting '||DATEI||' to '||dvifile||'›0m'
  42.  
  43. IF ~EXISTS(dvifile) THEN DO
  44.   SAY '›32mPass #1 : '||VIRTEX||TEXOPT||DATEI||'›0m'
  45.   VIRTEX||TEXOPT||DATEI
  46. END
  47. ELSE
  48.   SAY '›32mPass #1 SKIPPED'
  49.   
  50. SAY '›32mPass #2 : '||TEXIND||' '||basename||'.??›0m'
  51. 'list >cmdliste '||basename||'.?? LFORMAT "'||TEXIND||' %n"'
  52. 'execute cmdliste'
  53. 'delete cmdliste'
  54.  
  55. SAY '›32mPass #3 : '||VIRTEX||TEXOPT||DATEI||'›0m'
  56. VIRTEX||TEXOPT||DATEI
  57.  
  58. /* SAY '›32mPass #4 : delete '||basename||'.~('||indx||'|dvi)›0m' */
  59. /* 'delete '||basename||'.~('||indx||'|dvi)' */
  60.  
  61. ADDRESS
  62.  
  63. /* ---------------------------- END OF YOUR CODE --------------------- */
  64.  
  65. 'UNLOCK' /* VERY important: unlock GUI */
  66. EXIT
  67.  
  68. SYNTAX:
  69.  
  70. SAY "Sorry, ERROR line" SIGL ":" ERRORTEXT(RC) ":-("
  71. 'UNLOCK'
  72. EXIT
  73.